home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 May / CMCD0504.ISO / Software / Freeware / Programare / gdiplusdelphi / demos / Printing / Sending GDI+ Output to a Printer / GDITEST10.dpr
Encoding:
Text File  |  2003-04-05  |  878 b   |  39 lines
  1. program GDITEST10;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils,
  7.   Windows,
  8.   GDIPAPI,
  9.   GDIPOBJ;
  10.  
  11. var
  12.   hdcPrint: HDC;
  13.   docInfo: TDOCINFO;
  14.   graphics: TGPGraphics;
  15.   Pen: TGPPen;
  16. begin
  17.    // Get a device context for the printer.
  18.    hdcPrint := CreateDC(nil, PChar('Canon Bubble-Jet BJ-10e'), nil, nil);
  19.  
  20.    ZeroMemory(@docInfo, sizeof(DOCINFO));
  21.    docInfo.cbSize := sizeof(DOCINFO);
  22.    docInfo.lpszDocName := 'GdiplusPrint';
  23.  
  24.    StartDoc(hdcPrint, docInfo);
  25.    StartPage(hdcPrint);
  26.       graphics := TGPGraphics.Create(hdcPrint);
  27.       pen := TGPPen.Create(MakeColor(255, 0, 0, 0));
  28.       graphics.DrawLine(pen, 50, 50, 350, 550);
  29.       graphics.DrawRectangle(pen, 50, 50, 300, 500);
  30.       graphics.DrawEllipse(pen, 50, 50, 300, 500);
  31.       pen.Free;
  32.       graphics.Free;
  33.    EndPage(hdcPrint);
  34.    EndDoc(hdcPrint);
  35.  
  36.    DeleteDC(hdcPrint);
  37.  
  38. end.
  39.